Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmINV105
		Inherits System.Windows.Forms.Form
		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub

		Private Sub frmINV105_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.ConnectionTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT IIM.*, ICL.CLDSC, ITP.TPDSC, IUM.UMDSC,VVT.VTDSC " & " FROM ((IIM INNER JOIN ITP ON IIM.IMTYP = ITP.TPTYP) INNER JOIN ICL ON " & "IIM.IMCLC = ICL.CLCLC) INNER JOIN IUM ON IIM.IMUMC = IUM.UMUMC " & "INNER JOIN VVT ON IIM.IMVTC = VVT.VTVTP"
			Adodc1.Refresh()
			Me.VB6_AddADODataBinding()
			Dim myDataCaptions0 As String() = {"Code", "Description", "Type", "Class", "Group", "Unit Of measurement", "Wgt U.M", "Wgt/Unit", "Vol/Unit", "Value", "VAT code"}
			Dim myDataFields0 As String() = {"IMITN", "IMITD", "TPDSC", "CLDSC", "IMPGC", "UMDSC", "IMWUM", "IMWPU", "IMVPU", "IMPER", "VTDSC"}
			setDataGridViewWithSpitIndex(myDataCaptions0, myDataFields0, Me.grdIIM, 0)
			Dim myDataCaptions1 As String() = {"", "", "Type", "Class", "Group", "Unit Of measurement", "Wgt U.M", "Wgt/Unit", "Vol/Unit", "Value", "VAT code"}
			Dim myDataFields1 As String() = {"", "", "TPDSC", "CLDSC", "IMPGC", "UMDSC", "IMWUM", "IMWPU", "IMVPU", "IMPER", "VTDSC"}
			setDataGridViewWithSpitIndex(myDataCaptions1, myDataFields1, Me.grdIIM, 1)
		End Sub
	End Class
End Namespace